<%@ LANGUAGE = VBScript %> <% FUNCTION CheckEmail(parmaddress) set myRegExp = new RegExp ' Set the pattern to check for a word followed by ' an @ followed by a word myRegExp.pattern = "\w+\@[.\w]+" if myRegExp.Test(parmaddress) then CheckEmail=True else CheckEmail=false end if END FUNCTION %> <% kanion =1 thereq = Request.ServerVariables("URL") select case thereq case "/default.asp" The_title_ = biz_name & "," & "עמוד ראשי" case "/gallershow.asp" top_catname=request.querystring("top_catname") catname=request.querystring("catname") The_title_ = top_catname & "," & catname case "/prodetailsamewin.asp" pro_id=request.querystring("pro_id") dim c0101, r0101, sql0101 set c0101=server.createobject("adodb.connection") c0101.open DSN_NAME sql0101="select title from products where product_id=" & pro_id set r0101=server.createobject("adodb.recordset") r0101.open sql0101, c0101 title=r0101("title") The_title_ = title & " | " & biz_name set c0101=nothing set r0101=nothing case "/contact.asp" The_title_ =biz_name & "," & aboutxt case "/contactprocpage.asp" The_title_ = aboutxt & "," & biz_name case "/page.asp" page_title=request.querystring("page_title") The_title_ =biz_name & ", " & page_title case "/deals.asp" The_title_ = aboutxt & "," & "מבצעים" case "/searchres.asp" The_title_ = biz_name & "," & "תוצאות חפוש" case "/basketprev.asp" The_title_ = biz_name & "," & "סל מוצרים" case "/Basketprev.asp" The_title_ ="סל מוצרים," & biz_name case "/mailistprocpage.asp" The_title_ = biz_name & "," & "רשימת תפוצה" case else The_title_ = biz_name end select %> <%=The_title_%> > <% 'response.write session("visitor_id") & " -xx " if is_ban_swf = "0" then %> <%else%>
<% end if %> <% if is_ban_swf = "1" then %> <% else %> <% ''''''''Main Banner response.write "" ''''''''Right Banner response.write " " '''''''''''''''''''''''''''''''''''''''''''''''''''' end if '''''End swf or picture format %>
" ''''''''Text On Banner response.write "" & alt_ban_text ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'response.write "Your" 'response.write " Logo Go's Here" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' response.write "" & top_r_logo & "
<% if NewmsgFlag = 1 then %> <% else %> <% end if %>
| שמור כדף הבית שמור במועדפים
<% dim cpages, rpages, sqlpages set cpages=server.createobject("adodb.connection") cpages.open DSN_NAME sqlpages="select * from pages" set rpages=server.createobject("adodb.recordset") rpages.open sqlpages, cpages, 3 if not rpages.eof then dim tmp_id tmp_id = 0 while not rpages.eof if rpages("active") = 1 and int(rpages("page_id"))<10 then if rpages("blank_target")=0 then blank_target = " " else blank_target = "target='blank'" end if if trim(rpages("page_href"))=nil then %> " wend else '''''''''''''''''''''''''' end if %>
<% tmp_id=tmp_id+1 else %> <% tmp_id=tmp_id+1 end if end if rpages.movenext response.write "